Attribute VB_Name = "MKxCVx"

#If Win32 Then
  Private Declare Sub HMemCpy Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
#Else
  Private Declare Sub HMemCpy Lib "kernel" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
#End If

Function CVD(ByVal Value As String) As Double
  HMemCpy CVD, ByVal Value, 8
End Function

Function CVI(ByVal Value As String) As Integer
  HMemCpy CVI, ByVal Value, 2
End Function

Function CVL(ByVal Value As String) As Long
  HMemCpy CVL, ByVal Value, 4
End Function

Function CVS(ByVal Value As String) As Single
  HMemCpy CVS, ByVal Value, 4
End Function

Function MKD(ByVal Value As Double) As String
  Dim Temp As String * 8
  HMemCpy ByVal Temp, Value, 8
  MKD = Temp
End Function

Function MKI(ByVal Value As Integer) As String
  Dim Temp As String * 2
  HMemCpy ByVal Temp, Value, 2
  MKI = Temp
End Function

Function MKL(ByVal Value As Long) As String
  Dim Temp As String * 4
  HMemCpy ByVal Temp, Value, 4
  MKL = Temp
End Function

Function MKS(ByVal Value As Single) As String
  Dim Temp As String * 4
  HMemCpy ByVal Temp, Value, 4
  MKS = Temp
End Function